home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / qb2 / pro15 / t-bird.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-08-20  |  1.3 KB  |  71 lines
  1. {
  2.  ******************************************************************************
  3.  * T-BIRD - Line drawing demo for the 160x200x16 color graphics mode.          *
  4.  *                                          *
  5.  * Written for GRAFIX by:  Joseph A. Albrecht                      *
  6.  *                                          *
  7.  * Press ESC to exit program                              *
  8.  ******************************************************************************
  9. }
  10.  
  11. PROGRAM ThunderBird;
  12.  
  13. USES
  14.   Crt,
  15.   Dos,
  16.   Grafix;
  17.  
  18. TYPE
  19.   Colors = ARRAY [0..13] OF INTEGER;
  20.  
  21. VAR
  22.   I, J, K, L: INTEGER;
  23.   H, M, S, S100: WORD;
  24.   Ch: CHAR;
  25.  
  26. CONST
  27.   LC: Colors = (0, 15, 3, 3, 3, 3, 3, 4, 3, 4, 3, 3, 15, 0);
  28.  
  29. {Mainline}
  30. BEGIN
  31.  
  32.   LowGraphics;
  33.   WHILE True DO
  34.   BEGIN
  35.     ClearScreen;
  36.     L := 0;
  37.     K := 156;
  38.     Ch := #255;
  39.     FOR J := 80 TO K DO
  40.       FOR I := 0 TO J DO
  41.     BEGIN
  42.       IF KeyPressed THEN
  43.         Ch := ReadKey;
  44.       IF Ch = #27 THEN
  45.         BEGIN
  46.           ExitGraphics;
  47.           Halt(0);
  48.         END;
  49.           SetPlotColor(LC[L]);
  50.       ExtLine(I, J, K - I, K - J);
  51.       ExtLine(K - I, J, I, K - J);
  52.       ExtLine(J, I, K - J, K - I);
  53.       ExtLine(K - J, I, J, K - I);
  54.       L := (L + 1) Mod 14;
  55.     END;
  56.     GetTime(H, M, S, S100);
  57.     K := S;
  58.     J := 1;
  59.     REPEAT
  60.       GetTime(H, M, S, S100);
  61.       IF K <> S THEN
  62.     BEGIN
  63.       Inc(J);
  64.       K := S
  65.     END;
  66.     UNTIL (J = 7) OR KeyPressed;
  67.   END;
  68.  
  69. END.
  70.  
  71.